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MODULE BUFFERS (2TIT LE 1 Byt ter management utilities’ 
gods *v04-001' 
= 


wre 


BEGIN 


S 


NOUS WN SO ODNOU EWN (OC OONAUE WN OOSNOu 


' 
i eee eeereeeereeeeeeeeeeeeeeeeretererereeeeererererereeeteeeeeeeeeeeeerereree 
i 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


Y 
o 
® 
® 
ae 
a 
if THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
i ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
iw TRANSFERRED. * 
® 
® 
w 
® 
® 
e 
® 
® 
* 


'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
_ eRPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


| 
' | 
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++ 
i FACILITY: | 
Job controller. 
i ABSTRACT: 
+ This module contains the buffer management utilities. 
0038 i ENVIRONMENT: | 
0039 i VAX/VMS user and kernel mode. 
4 0040 ine 
4 0041 i 
2 ape AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
4 0044 i MODIFIED BY: 
45 0045 i 
46 0046 : V04-001 JAK0236 J A Krycka 14-Sep-1984 
rif Boe Collect more diagnostic information. 
004 i v03-008 JAK0223 J A Krycka 10-Au uge19 
00 : Retry enqueue for queue file lock on 5S$ *SEADLOCK error to 
4 prevent sarin job contro..er on false deadlock indication. 
$0 i v03-007 es te rycka 17-Jul-1984 
8 Track changes in ” OBet DEF REQ. 
00 i v03-006 KPL0001 P Lieberwirth, 10-Jul-1984 
00 : Add global routine FLUSH_RECORD, to be used when a record 


vO4-501 
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O28 1! needs to be written stil to the queve-file for reliability 
a reasons but is also still needed for subsequent processing. 
60 1! This routine provides better performance than doing a pair 

Boe3 : of REWRITE_RE ORD/READ. RECORD calls. 

063 1! v03-005 JAKO211 cka 14-May-1984 

0064 1 | Continuation of vOs-004" , 

0066 1! V03-004 JAKO210 J A Krycka 10-May-1984 

84 ! Conditionally set ROP” record Locking sotions. 

99 9 1! V03-003 JAKO209 os 1 em 

Bort ! Log diagnostic eeoract lan in DIAG_TRACE vector. 

0072 1! v03-002 MLJ0114 Martin L. Jack, 23-Jun-1983 

Bove } Changes for job controller baselevel. 

0075 1! v03-001 MLJ0109 Martin L. Jack, 14-Apr-1983 

oye ’ Changes for job controller baselevel. 

0078 1 ise 


Buffer management utilities 


vOu-50t 


e REQUIRE ‘SRC$:JOBCTLDEF'; 
FORWARD ROUTINE 
LLOCATE_MEMORY 
DEALLOCATE MEMORY : 
LL BOFFER 
DEA ALLOCATE BUFFER: 
ALLOCATE_RECORD: 
DEALLOCATE_RECORD 


ONAOVUVES WN (OO OONOUESWNO” 
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1 

1 
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1 

1 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

1 EXTERNAL ROUTINE 

1 DELETE_OPEN_GET + a 
: SIGNAL_F ILE-ERRO 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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Buffer control block. 


BCB_LINK= 
RECNO= 

BCB_REF COUNT= 

BCB_BUFFER= 


LITERAL 
BCB_K_LENGTH= 


BUILTIN 


ttt a tt SS SS SO SP a Sw ww ow SW KO 
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DEALLOCATE— RECORD LIST: 
READ ORB 


1bodeoct9Re 35:57:48 yatta 


NOVALUE, 
NOVALUE 


L_OUTPUT_2, 


NOVALUE, 
NOVALUE, 


NOVALUE, 


NOVALUE ; 


NOVALUE, 
NOVALUE; 


Re iaUF FERS 85353 


Link to next block 


' Record number 


Reference count 


' Pointer to buffer 


! Block length - 


Page 
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136) } GLOBAL ROUTINE ALLOCATE_MEMORY (PAGES) = 

1188 1 !4¢ 

1164 1! 

1165 1 =! FUNCTIONAL DESCRIPTION: 

1188 ; } This routine allocates pages of virtual memory. 

1168 1 ! INPUT PARAMETERS: 

119? : PAGES = (Optional) Number of pages to allocate. 
1171 1 =! IMPLICIT INPUTS: 

1126 1! NONE 

1175 1! 

1174 1 =! OUTPUT PARAMETERS: 

1175 1! NONE 

1176 1! 

1177 «103! IMPLICIT OUTPUTS: 

1178 1! NONE 

1179 1! 

1180 1 ! ROUTINE VALUE: 

y+ : } Pointer to the allocated memory. 

1188 1 ! SIDE EFFECTS: 

11 1! NONE 

1185 1! 

11 $ 1 !-- 

1187 1 

1188 BEGIN 

1189 LOCAL 

1190 : REF VECTOR, ' Pointer to allocated block 
1191 NP; ! Number of pages to allocate 
1136 BUILTIN 

119 ACTUALCOUNT; 

1194 

1195 

1138 Get the number of pages to allocate. 

1198 NP = 1; 

1398 IF ACTUALCOUNT() GTRU 0 THEN NP = .PAGES; 

1201 

1 Oe IF NOT REMQUE(.MEMORY_FREE_QUEUES(2*(.NP-1)], P) 

: 0 — " 

1508 PEOd = PCI) = 0; 

1 5] .P 

120 END 

1208 SE 

1209 BEGIN 

1210 OCAL 

1211 RETADR: VECTORC2), ' $EXPREG return address array 
' \ STATUS; ' Status return 

1214 STATUS = SEXPREG(PAGCNT=.NP, RETADR=RETADR); 

1215 IF NOT giATUS THEN SIGNAL(JBCS_ALLOCMEM OR STSSK_SEVERE, 0, .STATUS); 
1 eRETADRE j 
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; 180 1218 1 END; 
-TITLE BUFFERS Buffer management utilities 
IDENT \v04-001\ 
~-PSECT COMMON,NOEXE, OVR,2 
00000 DIAG_ wow Fae 
00000 DIAG_ TRACES 


00060 DIAG_ “counts” - 
000CO DIAG Fabs ry 
000C4 WORK_AREA: ‘a tale | 
OOOFO SNDJBC COUNT : va 
00174 GETQUI =COUNT ine | 
0019C SNDACC_COUNT: . 


LKB 
001B8 SNDSMB_ COUNT 
00200 DIAG sie tated 


00200 FLAGS: .BLKB 
00204 IMAGE_DUMP_STSFL 


-BLK 
00208 THIS -SYSID: 
-BLKB 


80340 CUR_TIME: 
00218 wOURLY_TiR: 
00220 HOURL Y_PARANS : 
00234 SYMBIONT. COUNT: 
00238 QUEUE REFERENCE COUNT: 
0023¢ MBX ea 


rye Oo Oo NO FALCON 
o o ™~m 


-BLKB 
Si Sto fe 
00248 ROX ENO “FREE BO. 


00270 NONAST “work QUEUE : 
00278 BCB_FREE Uist: 

0027C BCB_ACTIVE 7 | 
00280 GQL_FREE_LIST: 


BUFFER Buffer management utilities bse ° 
Vv a 122885-1 3h $3:35i¢ 

-BLKB 4 
00284 GQL_ACTIVE LIST: 

-BCKB 4 
00288 OPEN_GETQUI LIST: 
0028C PROCESS DATA List: 
00290 SYMBIONT -CONTROL : 
00294 SPARE_AREA: 

-BLKB. 12 
002A0 REMOTE -REQUEST_ LKSB: 
002A8 QUEUE_FILE LKSB: . 
002B0 QUEVE_LOCK_LKSB: 

.BCKB 8 
002B8 RSP -BLKB 8 
002C0 JBC ‘PRIORITY: ° 
002C4 JBC_PRIVILEGES: ‘ 
002cC JBC_QuOTAS: 

-BLKB 66 
0030€ -BLKB 2 
00310 JBC_UIC:.BLKB 4 
00314 QUEDE_FAB: 

-BLKB 80 
00364 QUEUE_RAB: * 
003A8 QUEUE_NAM: 

-BLKB 96 
00408 QUEUE_XAB: 

-BLKB 88 
00460 QUEUE_RSA: 

-BLKB 255 
0055F ‘BLKB 1 
00560 QuEUE_ALQ: ; 
00564 QUEUE_MBF : 

-BLKB 1 
00565 -BLKB 3 
00568 ACCOUNTING FABS : . 
00570 ACCOUNTING RABS: 
00578 ACCOUNT_FAB A: oa 
005C8 ACCOUNT_RAB A: im 
0060C ACCOUNT_NAM A: * 
0066C ACCOUNT_RSA_A: 

-BLRB 255 
00768 -BLKB 

076C ACCOUNT_FAB B: 

-BLRB 80 


AX-11 Oi iets 
JOBCTL.SRCIB 
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] 
1Bog6 ~ge0n 1384 g3:3eie AX=11 Bliss-32 V ais 742 Page | 
007BC ACCOUNT_RAB B: | 


BL 68 
00800 ACCOUNT AAR B: a 
00860 ACCOUNT_RSA B: 
-BLRB 955 
9092 ‘BLKB 
9980 DIAG_FAB: 
LKB 80 
00980 DIAG_ RAB: 
-BLKB 68 
009F4 MBX_CHAN: 
LKB 4 
-BLKB 8 


OOA00 MBX_BUFFER: 

00E00 VALUE _STORAGE BASES 

0OE00 ITEM_ pnedent : 

00E20 VALUE se igul Tenses 

00E20 VALUE _ACEGUNT ING MESSAGE : 

00E26 VALUE ACCOUNTING, TYPES: 

QOE2A VALUE_AFTER TIME: 

00E32 VALUE ALIGNMENT PAGES: | 
00E33 VALUE_BASE PRIORITY - | 


| 
| 
| 
009F8 MBX_10SB:~ | 
| 
| 
| 


00E 34 VALUE BATCH INPUT: 

OOE3A VALUE BATCH OUTPUT : 

00E44 VALUE BUFFER COUNT: 

00E45 VALUE CHARACTERISTIC _NAME: 

00E4B VALUE CHARACTERISTIC NUMBER: 

OOE4C VALUE CHARACTERISTICS: | 
OOESC VALUE_CHECKPOINT DATA: 
00€62 VALUE_CLi® : | 
00E68 VALUE _CPUP DEFAULT: | 
OOE6C VALUE_CPU CIRIT: | 
00E70 VALUE DESTINATION QUEUE: | 


-BLKB 
QOE78 VALUE _DEVICE NAME : 
-BLKB 6 
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QOE7E VALUE_ENTRY_NUMBER: 
00E82 VALUE ENTRY NUMBER OUTPUT: | 
O0E8C VALUE EXTEND QUANTITY: 
OOE8E VALUE FILE- COPIES: | 
OOE8F VALUE fii iBenr|e icariow: | 
OOEB3 VALUE FIle’ SETUP_MODULES: 
00EB9 VALUE Files SPECIFICATION: | 
OOEBF VALUE F1isT PAGE : | 
OOEC3 VALUE “FORM” DESCRIPTION: 
OOEC9 VALUE_FORM LENGTH: 

OOECA VALUE _FORM MARGIN_ BOTTOM: 
OOECB VALUE _FORM MARGIN. LEFT: 
OOECD VALUE_FORM MARGIN_RIGHT: 
OOECF VALUE_FORM MARGIN, TOP: | 
OOEDO VALUE fot NAME: : | 
QOED6 VALUE_FORM_NUMBE 
OOEDA VALUE_FORM: 
QOEE2 VALUE “Foi SETUP MODULES: 
OOEE8 VALUE _FORM STOCK: 
OOEEE VALUE “FORn WIDTH: 
OOEFO VALUE -GEiERIC. TA 
01204 VALUE_JOB COPIES: 
012D5 VALUE_JOB LIMIT: 
01206 VALUE_JOB NAME: | 
012DC VALUE _JOB RESET. MODULES: | 
012€2 VALUE _J08 SIZE _MAXIMUM: 
012E6 VALUE_JOB SIZE MINIMUM: 
O12EA VALUE _JOB STATUS, OUTPUT: | 
012F4 VALUE_LAST_PAGE: 


2 Page 8 


R: 
4 
8 
6 
6 
2 
R 
9 
1 
1 
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012F8 VALUE _LIGRARY SPECIFICATION: 
O12FE VALUE LOG, QUEUE: 
01306 VALUE_LOG. SPECIFICATION: | 
0130¢ VALUENOTE: | 
01312 VALUE_OPERATOR_REQUEST: 
01318 VALUE OwiER UIC: 
0131¢ VALUE PAGE SETUP 
01322 VALUE PARAMETER, 
01328 VALUE PARAMETER, 
0132E VALUE_PARAMETER_ 
01334 VALUE_PARAMETER_ 
0133A VALUE _PARAME TER. 
01340 VALUE_PARAMETER_ 
01346 VALUE _PARAME TER. 
0134C VALUE_PARAMETER_ 
01352 VALUE PRIORITY: 
01353 VALUE PROCESSOR: 
01359 VALUE PROTECTION 
0135D VALUE _QUEUE : | 
01363 VALUE_QUEUE FILE SPECIFICATION: 
01369 VALUE_RELATIVE. PAGE : 
0136D VALUE RESERVED, INPUT.1: 
0136E VALUE_RESERVED_INPUT_2: 
01370 VALUE RESERVED, IPUT_3: 
01374 VALUE_RESERVED_INPUT_4: 
0137A VALUE RESERVED, OUTPUT. 1: 
01384 VALUE _RESERVED_OUTPUT_2: 
0138£ VALUE_SEARCH STRING: 
-BLKB 6 


MODULES: 


PP AOA NOOOUPSOWONMO OLE SOMO OH 


cro oo 


Ba Be Oe Be Oe Oe Be Be Se Oe Se Se Se we SESH Se Se SH Se Se Se Se Se Se Se SESH Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se ae Se Se ee ae Se Se Se Se eras 
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01394 VALUE _SCSNODE _NAME : 


; Routine Size: 75 bytes, Routine Base: CODE + 0000 


BLK : 
0139A VALUE _WSDEFAULT: ; 
0139¢ VALUE _WSEXTENT . ; 
0139€ VALUE_WSQUOTA: | ; 
013A0 VALUE _STORAGE_END: | : 

JBC$_CLOSEOUT= $ 3 8 | : 

JBC$~NOCMKRNL= : | ; 

JBC$~NOOPER= 725 ; 

JBC$-NOSYSNAM= 72604 : 

JBC$~OPENIN= 66392 ; 

JBC$~OPENOUT= 66400 ; 

JBC$~READERR= 66416 ; 

JBCS~WRITEERR= 66448 | ; 

.EXTRN DELETE_OPEN_GETQUIS | ; 

EXTRN SIGNAL-FILE_ERROR : 

EXTRN SYS$EXPREG | ; 

-PSECT CODE,NOWRT,2 : 

000C 00000 -ENTRY ALLOCATE_MEMORY, Save R2,R3 b 1161) 3 

SE 08 C2 00002 SUBL2 #8, SP : | ; 
51 01 DO 00005 MOVL #1. NP : 1198 | ; 
6C 95 00008 TSTB =. (AP) : 1199) ; 

04 13 OOO0A BEQL «1S : ; 

51 04 AC 00 0000C¢ MOVL = PAGES, NP ; | : 
52 51 01 78 00010 1$: ASHL #1, NP, R ; 1202 | : 
53 00000000°EF42 DE 00014 MOVAL. MEMORY _FREE_QUEUES-8(R2], R3 : ; 
50 00 83 OF 0001C REMQUE @0(R3)> P : | ; 
03 1D 00020 BVS : ; 

60 7C 00022 CLRO (P) : 1205 | : 

4 00024 RET : 1206 | ; 

7E C 00025 2$ CLRQ -(SP) 3 1214 | 3 

08 AE 9F 00027 PUSHAB RETADR s 3 

51 DD O002A PUSHL NP : 3 

00000000G 00 04 FB 808 f CALLS #4, a nai s 3 
11 50 €8 000 LBS. STATUS, 3$ ; 1215 | 3 
50 DD 00036 PUSHL : : 

7E D4 00 a CLRL. = =( SP) : : 

0004840C 8F DD A PUSHL ue 5948 : : 
000000006 90 03 FB 00040 CALLS #3, LIBSSIGNAL : : 
0 6E DO 00047 3$ MOVL RETADR, RO : 12 : 
04 0004A RET : 12 ; 
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Vv ‘Bot ° 14-Sep-19 4 $3:35:¢ JOBCTL.SRCIBUFFERS 832; 3 ’ (4). 
; : ¢ : 38 : GLOBAL ROUTINE DEALLOCATE_MEMORY(P,PAGES): NOVALUE= : 
; 184 1221 1 !44 ‘ 
3; 385 1ss¢ tj ‘ 
3 1 1 ! FUNCTIONAL DESCRIPTION: : 
: Ht : ¢ : This routine deallocates pages of virtual memory. ° 
; 189 1 § 1 ! INPUT PARAMETERS: ; 
; 190 1 , } - Pointer to memory to be deallocated. ‘ 
3 13) : 3 : } PAGES - (Optional) Number of pages to deallocate. ° 
3 198 1230 1 ! IMPLICIT INPUTS: : 
: 19% 1231 1! NONE : 
; «4195 1 ¢ 1! : 
: 196 1 1 ! OUTPUT PARAMETERS: ‘ 
; 197 1234 1! NONE ‘ 
; 198 \$3? 1! : 
; 199 1236 1 ! IMPLICIT OUTPUTS: : 
: 200 tenn 1 3 NONE ‘ 
3 $0) 1238 1! ; 
; 4 1239 1 ! ROUTINE VALUE: 
3 $3 1240 1! NONE 
; 204 1241 1! 
; 205 \st6 1 ! SIDE EFFECTS: 
; 206 12463 1! NONE 
; 207 1244 1! 
; 208 1245 1 !<- 
3 344 1246 1 
: 210 1247 2 BEGIN 
ae i) 1248 § LOCAL 
3 ave 1249 NP; ! Number of pages to deallocate 
3 ais 1250 2 BUILTIN 
3 214 1251 ACTUALCOUNT; 
3 215 1536 
; 2 125 
3 ave 1254 § ! Get the number of pages to deallocate. 
; 218 1255 ! 
: 219 1256 NP = 1; 
: 220 1257 IF ACTUALCOUNT() GTRU 1 THEN NP = .PAGES; 
3 del 1258 
: 222 1259 . 
3 $$7 ise } Clear the pages and Link them to the free List. 
3 $82 1966 CHSFILL(O, .NP * 512, .P); 
3 226 126 INSQUE(.P, MEMORY_FREE_QUEUESC2*(.NP-1)]); 
3 der 1264 1 END; 
007C 00000 ENTRY DEALLOCATE_MEMORY, Save R2,R3,R4,R5,R6 : 1219 | 
56 01 pd babe MOVL 3: 125 
a1 6¢ 91 0000 (AP), #1 : 1257 | 
56 08 AC 06 000A MOVL, PAGES, NP a4 
50 56 09 p OOOE 18: ASHL #9, NP, RO : 1262 
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50 00 6E 06 00 2c i MOvCS #0, (SP), #0, RO, aP : 

C4 00019 MULL2 #2, R6 $1 

30 Seagal DE Q001C MOVAL MEMORY _FREE_QUEUES-8CR6], RO : - 

6 06 Bt OE it INSQUE aP, (RD) : 
04 00028 RET 3: 1264 


; Routine Size: 41 bytes, Routine Base: CODE + 0048 
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vOesb0% . 12788b-1$8e 3:35 :¢ JOBCTL. SRC IBUFFERS.B32;3 . (5) | 
; 1265 1 ROUTINE ALLOCATE_BUFFER= ; 
; 0 1266 1 ; 
3 1 1267 1 S++ ; 
; ¢ 1268 1! ‘ 
; 1269 1 ! FUNCTIONAL DESCRIPTION: ‘ 
3 1270 1! This routine allocates a buffer control block and a buffer from . 
3 5 ; fy} : H dynamic memory. ‘ 
3 1275 1 ! INPUT PARAMETERS: : 
; 8 1274 1! NONE ; 
; 9 1275 1! ; 
; 240 1276 1! IMPLICIT INPUTS: : 
; 241 1277 1! NONE : 
; 1: 1278 1! : 
; 24 1279 1 ! OUTPUT PARAMETERS: ‘ 
3 266 1280 1! NONE : 
> 245 1281 1! : 
> 246 1 B 1 ! IMPLICIT OUTPUTS: : 
: 247 1283 1! NONE | ; 
; sis 1284 1! : 
: 249 1285 1 | ROUTINE VALUE: | ; 
; 251 : Hy : } Pointer to the buffer control block. : 
i 332 1288 1 ! SIDE EFFECTS: : 
; @ 1289 1! NONE : 
3; 254 1290 1! : 
3 £9 193) 1 !<- : 
: 256 1 35 1 : 
3 257 129 BEGIN : 
; 258 1294 2 LOCAL : 
; 259 1295 BCB: REF BBLOCK; ! Pointer to buffer control block : 
ee ; 
$ $¢ 1298 ! If the buffer control block free List is empty, allocate a page of memory : 
; ser 44 ; and transform it into free buffer control blocks. : 
; 265 1301 If .BCB_FREE_LIST EQL 0 ; 
: 266 1 8 THEN : 
3; €or 130 BEGIN : 
; ¥43 1 a0e crap = ALLOCATE_MEMORY(); ‘ 
; 270 1306 FROM .BCB_FREE_LIST+512-2*BCB_K_LENGTH TO .BCB_FREE_LIST BY BCB_K_LENGTH DO : 
: 271 1307 .P = 7P + BCB_K LENGTH; : 
: a 1308 END; ¢ 
: $f 1310 | 
; 275 1311 ! Remove a buffer control block from the free List, allocate a buffer from | : 
: r : \¢ } dynamic memory, and initialize the buffer pointer. : 
Py H | e 
3; 278 1314 BCB = .BCB_FREE_LIST; : 
: 279 1315 BCB_FREE LIST =~.BCBLBCB_LINK); : 
; 80 1 16 BCBIBCB_BUFFER] = ALLOCATE_MEMORY(); : 
3 B: 1318 : 
: 28 1319 ! Return the buffer control block. : 
; 284 1 $9 : | : 
; 5 1321 -BCB ; 
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62 bytes, 


; Routine Size: 
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BUFFERS Buffer management utilities 18-5¢ 1984 23:57:4 AX-11 Bliss-32 V4.0-742 Page 15. 

Vv OI ° 127908- 3b 33:35:38 JOBCTL.SRCJBUFFERS.832;3 . eb 
; Hey ! ? ! ROUTINE DEALLOCATE_BUFFER(BCB): NOVALUE= : 
: 290 1325 1 !44 ; 
>; 291 1 § 1: : 
$ 38 1 1 ! FUNCTIONAL DESCRIPTION: : 
; a 1328 1! This routine deallocates a buffer control block and a buffer to ‘ 
>; 29 lacy 7 3 dynamic memory. ‘ 
; 295 1330 1! ; 
: 96 1331 1 | INPUT PARAMETERS: : 
; 44 : ¢ ' } BCB - Pointer to buffer control block. | : 
: 299 1334 1 | IMPLICIT INPUTS: | ; 
; 300 1335 1! NONE : 
: 301 1336 1 | | ; 
; 0g 1337 1 ! OUTPUT PARAMETERS: ; 
; 30 1338 1 | NONE : 
3 04 1339 1! : 
; 305 1340 1 ! IMPLICIT OUTPUTS: : 
: 06 1341 1! NONE : 
; 307 1 rt: 1! $ 
; 308 1343 1 | ROUTINE VALUE: ; 
; 309 1344 1 | NONE ; 
3 10 1345 1! é 
$ 11 1346 1 ! SIDE EFFECTS: ° 
8 \§ 1347 1! NONE : 
: 31 1348 1 F 
: 314 149 | in | : 
; 316 1351 2 BEGIN ; 
: 317 1 26 MAP. : 
; 18 ’ 37 BCB: REF BBLOCK; ! Pointer to buffer control block : 
3 $9 1355 ; 
; 1 : 28  Deallocate the buffer to the free List. | : 
3 t : 4 DEALLOCATE_MEMORY( .BCBCBCB_BUFFER); ; 
: 325 1360 F 
2 38 : $ Deallocate the buffer control block to the free List. ° 
3 28 1368 CHSCOPY(4, BCB_FREE_LIST, 0, BCB_K_LENGTH, .BCB); é 
3 $83 1364 BCB_FREE_LIST = .BCB; . 
g 1365 1 END; | ; 
; 
| ; 
OOFC 00000 DEALLOCATE_BUFFER: 3 
-WORD Save R2,R3,R4,R5,R6,R7 3 1323 | : 
57 00000000" EF 9 99002 MOVAB BCB_FREE_LIST. R? ; | ; 
56 04 AC 00 000 MOVL B, R6 : 1358) 3 
0c A6 DD 00000 PUSHL 12(R6) 3 é 
85 AF 1 FB 00010 CALLS #1, DEALLOCATE_MEMORY : F 
10 00 67 ; 2c it MOVC a4, BCB_FREE_LTST, #0, #16, (R6) : 1363 | : 
67 $8 DO OOOTA MOVL R6, BCB_FREE_LIST > 1364. : 


11 
Ej | Ne pee ett NERS SERRE UMSELLSMMMatF Etats «ef 


04 00010 RET ; 1365) 


| 
| 


; Routine Size: 30 bytes, Routine Base: CODE + 00B2 


11 
FFERS Buffer management utilities 1b-5¢ -1984 57:4 AX-11 Bliss-32 V4.0-742 Page 17. B 
Bee bOt ° 1h-8ep-19 4 335353 JOBCTL SRC IBUFFERS.B32:3 . (7) | vO 


3 ¢ : ° } GLOBAL ROUTINE ALLOCATE_RECORD( ; REC_N, REC): L_OUTPUT_2= 

: 1368 1 !44 

; 5 1 : 1! 

3 § 1370 1 ! FUNCTIONAL DESCRIPTION: 

: 1371 1! This routine allocates a record from the free List or by extending the 

3 ; } : } queue file. 

: 40 1374 1°! INPUT PARAMETERS: 

: 41 1375 1! NONE 
: $s 1376 1! 
: 34 1377 1°! IMPLICIT INPUTS: 

: 344 1376 1! NONE | 
: 345 1379 1! 

: 46 1380 1 ! OUTPUT PARAMETERS: 

: 347 1381 1! REC_N - Record number of record. 

; 348 1382 1! - Pointer to record. 

3 49 1385 1! 
3 50 1388 1 ! IMPLICIT OUTPUTS: 
s 351 1385 1! NONE 
3 28 1389 1! 
: 35 1387 1 | ROUTINE VALUE: | 
; 354 1388 1! Completion status. 
s 395 1389 1! | 
; 56 1390 1 ! SIDE EFFECTS: 

: 357 133) 1! NONE 
: 358 1 3 1! 

; 359 1393 1 !<- 

; 360 1394 1 | : 
: 361 1395 BEGIN 

; 369 1396 3 LOCAL | 
; % 1397 SQH: REF BBLOCK, !' Pointer to SQH record 
3; 364 1398 PREV, ' Pointer to previous forward Link 
; 365 1399 BCB: REF ret !' Pointer to buffer control block 
; 366 1400 BUFFER: BBLOCKCSYM$S_SYM), ' Buffer for file extend 

3 Jer 1401 FREE_N; ! Record number of free record 

: 368 1eR6 

: 140 
: e's } Read the queue header. 
; 1406 2 SQH = READ_RECORD(SQHSK_RECNO); 

: i 
; 129) : Establish the record number that will be allocated. 

: 1411 2 FREE_N = .SQHCSQHSL_FREE_LIST); 

3 116 IF .FREE_N EQL 0 

: 141 THEN 

3 1414 BEGIN 

: 1415 

3 1218 Extend the queue file. 

: Rt | QUEUE FABCFABSL_ALQ) = .QUEUE_ALQ; 

: 141 4 IF NOT SEXTEND (FAB=QUEUE _F AB) 

3 1420 3 THEN 

: 1421 4 BEGIN 

: 1422 4 SIGNAL _F ILE_ERROR( 


vob Buffer management utilities 15-bep-1944 63:32:08 AX-1 
88 ete al eget + STSSK. ERROR, 


VEU 
RETURN Jats ANOQUESPACE: 


: 
: 
32 Link the newly allocated records to the free list. 

97 CHSF ILL (0 atts SYM, BUFFER); | 
98 QUEUE BF] = BUFFER: | 
99 “FCAGSE ate V QUEUE SHARED) 

400 QUEVE_RABCRABSC_ROP) = RABSM_UIF OR RABSM_NLK 

401 it au UEUE~RABLRABSL-ROP) = RABSM-UIF; 

40 FROM .SQACSQHSL_HIGHEST_RECORD] + ; QUEUE _FABLFABSL_ALQ] | 

404 TO _.SQHCSQH$L“HIGHEST-RECORD] + 1 DO 

405 BEGIN 

406 BUF FERCSYNSL INK = -FREE_N 

407 RABLR KBF) = | 

408 DiAt E POU NTC1) =".DIAG_ Soe +1; | 

409 FN NOT $PUT(RAB=QUEUE_R 


"SIGNAL FILE ERROR( 
Jets WRITEERR + yest ~ SEVERE, 

EUE FAB, QUEUE_R 

FREE _ N= OORECCT 


SOHESONSL -HIGHEST_RECORD] = .SQHCSQH$L_HIGHEST_RECORD] + .QUEVE_FABCFABSL_ALQ]; 


Update the end of file pointer. 
iF NOT $FLUSH(RAB=QUEUE_RAB) 


SIGNAL_FILE_ERROR( 
JBU$_WRITEERR + STS$K _SEVERE, 

apEUE _FAB, QUEUE_RAB); 

END; | 
| 
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? : Search the active buffer control block List for the specified record number. 

6 PREV = BCB_ACTIVE_LIST; 

6 WHILE ..PREV NEQ 0 DO 

6 BEGIN 

6 BCB = ..PREV; 

7 ! If the current record number is greater than the desired record number, 

3 q ; the record is not in the List. 

440 7 IF .BCBCBCB_RECNO] GTRU .FREE_N 
44) 7 THE 
463 7 EXITLOOP; 
44 7 
aus ? 
445 7 ! If the current record number is equal to the desired record number, 
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} it indicates an internal error. 
if ;,BCBLBCB_RECNO} EQLU .FREE_N 
SIGNAL (JBC$_INVBLOCK OR STSSK_SEVERE, 1, .FREE_N); 


Advance to the next buffer control block. 
PREV = BCBCBCB_LINK); 
END; 


into the List, and initialize it 
CATE sPurren(s 


cB: = FREE LN; 


} 
| 
| 
| 
| 
| 
sp cified record was not found. Allocate a new buffer control block, | 
FCOUNT) = 


Read the free record. 


QuEUE RABCRABSL_KBF) = BcBBCB RECNO); 
FCAG Gst FLAGS Vv oueuE 
E_RABCR ABSC ROP = RABSM_NLK OR RABSM_RRL 
| 
j 
| 
| 
| 
} 
| 


Vw 


erse QUEL OP) = 
QUEUE_RABCR st _UBF J BC8 cB BUFFER); 
DIAG TOUNTCLO ~ DIAG. cou TCO} F 1 

AARot SET (RAB= QUEUE-R 


N 
SIGNAL_FILE_ERROR( 
JBUS$_READERR + STS$K SEVERT, 
apEOE” FAB, QUEUE_RABJ; 
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Remove the record from the free List. 


SQHCSQHSL_FREE_LIST] = .BBLOCKC. BCBCBCB BUFFER], SYMSL_LINK]; 
BBLOCKC .BCBLBCB_BUFFER], SYMSL_LINK) = 0; 


Fo at af af at at a 
SSELERE 


Rewrite the queue header. 
REWRITE _RECORD(SQHS$K_RECNO) ; 


' Return the buffer address and record number. 


N; | eeeee diagnostic info sete 


a ee a a ee ee ee ee ae ee eB ee dad dd 
SO eee eee wal sh sh sb dh Ab dh Ab Ah Ab Ab Ab Ab Ab Ab Ab Ab ab Ab dh ah Ah Ah Ah AL et et Dl Del tl tel et el el el el et et ee et et ee ee ee ed 
WAIWAAAIAI AIP NIPININPINONIDY 9 9 OO F HDOOCOOOCOCOCOCOC OC OOOOOOOOOWMMWMmcccecocce 
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EXTRN SYSSEXTEND, SYSS$PUT 
“EXTRN SYSSFLUSH, SYSSGET | 
O1FC 00 .ENTRY ALLOCATE_RECORD, Save R2,R3,R4,R5,R6,R7,RB ; 1366. 
58 000000006 EF 9E a092 OVAB SIGNAL FILE ERROR, RB : | 
57 00000000' EF 9E G0 MOVAB QUEUE FaB, R : 
5E FDFC CE 9E 0001 MOVAB -516(SP), SP ; 
1 DD 0001 PUSHL #1 + 1406 
0000v CF 1 FB 0001 CALLS #1, READ_RECORD ; 
5A 0D 0 1C MOVL RO. SQH : 
6 38 «AA OO 1F MOVL  56(SQH), FREE_N > 1411 
03 13 000 3 BEQL «1 + 1412 
0OAB 3} 00 BRW 8$ : 
10 A7 024C¢ f DO 00028 1$: MOVL SUEUE ALG, QUEUF _FAB*+16 3 1418 
7 DD 0002E PUSHL R + 1419 
000000006 00 gi FB 00 9 CALLS #1, SYSSEXTEND : 
15 0 €8 000 BLBS RO. 2$ : 
57 DD 00 A PUSHL 7 + 1422 
57 DD 0003C¢ PUSHL 7 : 
000410D2 BF ODD OO05E PUSHL #266450 + 1423 
68 03 FB 00044 CALLS #3, SIGNAL_FILE_ERROR : 
50 00048030 8F v0 00047 HOVL #294960, RO + 1425 
0200 8F 00 13 ie 00 Ti S006 2$ MOVCS #0, (SP), #0, #512, BUFFER + 1431 
78 «OA? 04 AE 9€ 00058 MOVAB BUFFER, QUEUE _RAB+40 + 143 
OA FEEC C7? 03 £1 0005D BBC 7 FLAGS. $ + 143 
54  A7 00100010 8F 00 00063 MOVL #1048592, ‘QUEUE_RAB+4 > 1434 
04 11 00068 BRB 4$ : 
54 OA? 10 DO 0006D 3$: MOVL. #16, QUEUE_RAB+4 > 1435 
50 40 AA 10 A? Ci 00071 4$: ADDL3 QUEUE FAB+T6, 64(SQH), RO + 1437 
$2 40 «AA 01 ¢1 00077 ADDL3 #1, 64(SQH), R2 : 1438 
6E 50 DO 0007¢ MOVL RO. REC_T : 1436 
gD 11 0007F BRB : 
04 A 6 D0 00081 5$ MOVL FREE_N, BUFFER + 1440 
0080 ¢ 6f 9€ 00085 MOVAB REC_T, QUEUE_RAB+48 + 1441 
FD5O «—C?_—s«é6 O00BA INCL DIAG. COUNT+4 : 1448 
50 A7 9F OOO8E PUSHAB QUEUE RAB 3 144 
000000006 00 01 FB 00091 CALLS #1, SYS$PUT : 
OE 50 . 0098 BLBS 0; 6$ : 
50 A? SF 00098 PUSHAB QUEUE_RAB > 1445 
37 DD 009 PUSHL : 
00041004 8F DD OOOA PUSHL #966452 > 1446 
68 03 FB OO0A6 CALLS #3, SIGNAL_FILE_ERROR : 
56 6E DO OO0AD 6S: MOVL REC_T, FREE_N + 1448 
6E 07 OOOAC DECL REC7T : 1436 
52 6E D1 OOOAE 7S: CMPL = RECT, R2 : 
cE 18 0081 BGEG § : 
40 AA 10 Ar Cc 0085 ADDL2 QUEUE_FAB+16, 64(SQH) > 1450 
50 a? 9F 0008 PUSHAB QUEUE™R > 1455 
000000006 00 gi FB 0 BB CALLS #1, SYSSFLUSH : 
E 9 f Ce BLBS : 
50 A? SF 000C PUSHAB QUEUE_RAB 3 1457 
57 DD 0008 PUSHL R : | 
00041004 BF DD OOOCA PUSHL #266452 : 1458 
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1 v4.0- 
JOBCTL. FERS.B | 
GLOBAL ROUTINE DEALLOCATE_RECORD(RECNO): NOVALUE= | 


'e4 


ws 
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FUNCTIONAL DESCRIPTION: 
} his routine deallocates a specified record to the free record List. 
The record may have a reference count of zero or one. 


INPUT PARAMETERS: | 
RECNO - Relative record number. 


oO 
ooo 


i IMPLICIT INPUTS: | 
NONE | 
OUTPUT PARAMETERS: | 
NONE | 
IMPLICIT OUTPUTS: | 
NONE 
ROUTINE VALUE: | 
NONE 
SIDE EFFECTS: 
NONE 


WN — SO OONOUEWN ("CO OONOUFSWNO 


WWNIWNIWNIRIRINININININININID 2 2 OO Ow "OO 


BEGIN 
LOCAL 
QH: REF BBLOCK, : Pointer to SQH record 
34 6 PREV, ' Pointer to previous forward Link 
35 BCB: REF BBLOCK ' Pointer to buffer control block | 
36 BUFFER: BBLOCKESYM$S_SYMI; ' Temporary buffer | 


Read the queue header. 


DIAG_TRACEL3] = .RECNO; | seeee diagnostic info s##* 
SQH = READ_RECORD(SQH$K_RECNO); 
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2 5 

; 
a2 : : Search the active buffer control block List for the specified record number. 
6 : 
47 0 PREV = BCB_ACTIVE LIST; 

48 1 WHILE ..PREV NEQ 0 DO 
49 § BEGIN 

50 BCB = ..PREV; 

52 85 | 
38 86 ! If the current record number is greater than the desired record number, 
33 fi : the record is not in the List. 

56 89 If .BCBCBCB_RECNO) GTRU .RECNO 

57 90 THEN 

58 91 EXITLOOP; 

59 92 
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! If the current record number is equal to the desired record number, 
' ensure that the record has a reference count of one. If not, it 

! indicates an internal error. Then, Link the record to the free List 
and rewrite it. 


if .BCBCBCB_RECNO) EQLU .RECNO 
THEN 


BEGIN 
IF .BCBCBCB_REFCOUNT] NEQ 1 
SIGNAL (JBCS_INVBLOCK OR STSSK_SEVERE, 1, .RECNO); 


Link the record to the free List. 


CHSCOPY(4, SQHCSQHSL_FREE LIST], 0, SYMSS_SYM, .BCBCBCB_BUFFER]); 
SQHCSQHSL_FREE_LISTJ~= .RECNO; 


} Rewrite the record. 
QUEUE _RAB RABSL_KBF J = BCBCBCB_RECNO); 


8 
“RBFJ = .BCBCBCB_BUFFERI; 
If .FCAGSCFLAGS V_QUEUE SHARED) 

N RAB P 


HE QUEUE _RABL “ROP) = RABSM_UIF OR RABSM_NLK 
ELSE QUEUE RABCRABSL ROP] = RABSM_UIF; 
DIAG_COUNTL1) = .DIAG_COONTC1) + 1; 
IF NOT $PUT(RAB=QUEUE RAB) 


JBC$_WRITEERR SE ae eKT SEVERE. 


: Unlink and release the buffer control block. 
.PREV = .BCBCBCB_LINK); 
DEALLOCATE_BUFFER(.BCB); 

Rewrite the queue header. 

REWRITE_RECORD (SQH$K_RECNO) ; 

RETURN; 


BO ee RORORORORORORORORORO ote eee oe EE Rae 
WAAN NAAN AIP DIPUDIPINIPININYPYD 4 2 2 | S DODD OOVOCOCOOOWOOWOOOOO 
DWONAUS WN $9 OONAUES WN $$ O OONAUE WN O ODNOYV SWINDON W 


ee mB ed ed od od od 3 = dd od = 
POPRPNNINWWWW ER RRR RRR RRR RRR RESUS RRR PEER ER ERR ER ERR SPU 


END; 

0 
yo} : Advance to the next buffer control block. 
$08 PREV = BCBLBCB_LINK); 
644 END; 
i 
be9 ! The specified record was not found. Therefore, it has a reference count of 
o68 } sere. Seine a scratch buffer, Link the record to the free list and rewrite 

! the record. 


—_—  -- rhvnwn—Owrnrnrrrrrrrrrr SS Pn — 
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v06 Bot 13-Sep-1984 $3: 35:8 JOBCTL.SR ReIBUFFER 39553. 3 . B 
; 617 1650 3 
; 618 1651 apa SQHCSQHSL_FREE_LISTJ, 0, SYMS$S_SYM, BUFFER); ; 
; 61 16 ¢ SQHCSQHSL SL FREE List “= .RECNO; ; 
; 620 16 QUEUE _R C_k = RECNO; ; 
; 621 1694 QUEUE RAB RABSL-R BF = BUFFER; ; 
; 6 ; 1655 IF .FCAGSCFLAGS-V_QUEUE SHARED) : 
; 6 1656 THEN QUEUE echaste AB$C_ROP] = RABSM_UIF OR RABSM_NLK ; 
> 624 1657 QUEUE: “RAB RABSL ROP] = RABSM-UIF; ; 
; 625 1658 DIAG. ESGNT COONT£1) + 1; ; 
$ ? ° 1923 rw SpUT (RABSQUEUE™ “RAB : 
: 628 1661 NSIGNAL FILE_ERROR( | ; 
> 629 1666 JBCS$_WRITEERR + STS$K. ~SEVERE, : 
: 630 166 aproe _FAB, QUEUE_R | : 
i.) a: : 
3 o34 1666 ' Rewrite the queue header. | : 
> 634 1667 2: ; 
; 635 1668 REWRITE_RECORD(SQHSK_RECNO) ; $ 
> 636 1669 1 END; | ; 
| Py 
GFFC 00000 ENTRY DEALLOCATE RECORD, Save R2,R3,R4,R5,R6,R7,- ; 1536) : 
e a Pi} | e 
5B 000000006 00 9€ 00002 MOVAB SYS$PUT, R11 : ; 
5a 00000000' EF 9E 00009 MOVAB QUEUE RAB+4, R10 ; : 
5E FEOO CE 9€ 00010 MOVAB =512(5P : F 
59 04 AC 00 00015 MOVL = RECNO, R ; 1574 : 
FCAG CA 59 DO 00019 MOVL R9, DIAG_TRACE+12 : : 
01 DD O001E PUSHL @# : 1575. ; 
0000v CF 01 FB 00020 CALLS a, READ_RECORD ; : 
57 50 00 00025 MOVL SQH : | ; 
58 FF14 CA 9E 00028 MOVAB Bch eACTive _LIST, PREV : 1580 ; 
G8 D5 0002) 18: STL ; 1581 | 3 
7E 13 O002F BEQL {RE ; : 
56 68 D0 00031 MOVL (PREV), BCB : 1583 | : 
59 04 A6 D1 00034 CMPL 4(BCB). R9 : 1589 ; 
75 1A 00038 BGTRU 7$ : 3 
6D 12 sit BNEQ 6$ 3: 1599 | $ 
01 08 A6 D1 0003C CMPL 8(BCB), #1 : 1602. : 
11 (13 9040 BEQL 2$ : ; 
59 DD 0004 PUSHL ; 1604 : 
01 DD 00044 PUSHL : | : 
0004841C BF DD 00046 PUSHL #295964 : | : 
000000006 00 03 FB 004¢ CALLS #3, 1BSSIGN AL : | ; 
8F 00 380A? a 04 2c 0053 2$: MOVCS #4. 56(S #0, #512, a12(BCB) + 1609 | : 
38 OA? 8 DO 00050 MOVL (SQH : 1610 : 
C AA 04 Ab i 0061 MOVAB ACTON QUEUE RAB+48 : 1615 : 
4 AA 0c Ag DO 00066 MOVL i (BCBS « tUguE RAB+40 : 1616. : 
09 FE9B CA E1 00068 BBC i Ags : 1617 ; 
6A 00100010 = 8F bd dort MOVL 71668 92, QUEUE_RAB+4 ; 1618 | : 
6A 8 DO O007A 3S: MOVL #16, QUEUE_RAB+4 : 1619 | ; 


- Bee 
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104-001 . an ep- 138s 33:35 58 JOBCTL.SRCIBUF FERS .B32:3 ve Of vO 
FCFC CA 06 0007D 4$: INCL DIAG COUNT +4 : 1620 : 
FC OOAA BP 081 PUSHAB Que U ; 1639 ; 
68 o1 FB 084 ALLS vssPuT : | ; 
1 0 E 087 BLBS : | : 
FC AA OF OOBA PUSHAB QUEUE_RAB t 1623. : 
AC AA 9F 00080 PUSHAB QUEUE~FAB ; | : 
000410D4  8F DD 00090 PUSHL } 66452 + 1624 | : 
000000006 EF 03 FB 096 CALLS SIGNAL FILE_ERROR : : 
68 96 DO 00090 5$: MOVL tate) PREV) + 1630 : 
6 DD 000A0 PUSHL + 1631 : 
FDCC CF 01 FB O00K¢ CALLS #1 semintele pues : ; 
aE 11 OA BRB ; 1636 ; 
SB 3 0 OOOA9 6$: MOVL CB, PREV + 1643) : 
FF7E 31 OOOAC BRW + 1581 ; 
0200 28F 00 380 OA? 04 C OOAF 7$: MOVCS #4, 56(SQH), #0, #512, BUFFER + 1651 : 
38 OA? 5 DO 00088 MOVL (SQH : 1652 : 
2c OAA 04 AC 9E 000BC MOVAB RPeNo® SUEUE RAB+48 + 165 ; 
24 AA oF 9E 000C1 MOVAB BUFFER: ER, cgueUE. RAB+40 + 1654 : 
09 FESB CA 03 €1 000C5 BRC + 1655 i 
6A 00100010 8F 00 000CB MOVL 41668500.” QUEUE _RAB+4 > 1656! ’ 
03 11 000D2 BRB 9$ ; 
6A 10 DO 000D4 8$: MOVL #16 Que UE fase + 1657 
FCFC CA D6 00007 9$: INCL  DIAG_C + 1658 
FC AA 9F 00008 PUSHAB QUEU e° RAB 3: 1659 
68 01 Fe OOODE CALLS #1, vESSPUT 3 
13 50 €8 000E1 BLBS RO. 10$ : 
FC AA SF OOOE4 PUSHAB QUEUE_RAB + 1661 
AC AA 9F OO0E7 PUSHAB QUEUE she : 
000410D4 8F DD OOOEA PUSHL #2664 + 1662 
000000006 EF 03 FB O00FO CALLS # a _FILE_ERROR : 
01 DD OOOF7 10$: = PUSHL + 1668 
0000v CF 01 FB 000F9 CALLS #1, REWRITE_RECORD : 
04 OOOFE RET : 1669 


; Routine Size: 255 bytes, Routine Base: CODE + 023F 


F 1 
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eur Fes u gement u es 15 i. 9 t $3! 3oi8 Bliss-32 V4.0-742 Page (38 | 


14-Sep-1984 JOBCTL.SRCJBUFFERS.832;3 
3 ° 3 1670 : GLOBAL ROUTINE DEALLOCATE_RECORD_LIST(RECNO): NOVALUE= : 
; 6460 1026 1 44 3 
; 661 1675 1! $ 
; 64 1674 1 =! FUNCTIONAL DESCRIPTION: 5 
; 64 1675 1! This routine deallocates a List of records Linked through SYMSL_LINK ; 
; 644 1676 1! to the free List. : 
; 645 1677 1! 3 
; 646 1678 1 ! INPUT PARAMETERS: 3 
; 647 1679 1! RECNO - Relative record number of the first record. ; 
: 648 1680 1! : 
; 649 108) 1 ! IMPLICIT INPUTS: 3 
; 650 16 ¢ 1! NONE | ; 
; 651 1683 1} | : 
3 $26 1684 1 ! OUTPUT PARAMETERS: ; 
; 63 1685 1! NONE | ; 
3; 654 1686 1! 3 
3 695 1687 1 ! IMPLICIT OUTPUTS: 3 
; 656 1688 1! NONE F 
; 657 1689 1! 3 
; 658 1690 1 ! ROUTINE VALUE: ; 
; 659 1691 1! NONE : 
; 660 1038 1! - 
: 661 1693 1 ! SIDE EFFECTS: 3 
: 66¢ 1694 1! NONE ; 
; @& 1695 1! F 
3; 664 1696 1 !-- ; 
; 665 1697 1 : 
: 666 1698 § BEGIN ; 
; 667 1699 LOCAL ; 
; 668 1700 2 LRECNO, ' Current record number ; 
; 669 1701 2 NRECNO, ! Next record number | ‘ 
; 670 1708 2 REC: REF BBLOCK; ' Pointer to record ; 
3: 671 170 : 
3; 67 1704 ; 
3s 67 1705 IF .RECNO NEQ 0 : 
3; 674 1706 THEN : 
; 675 1707 BEGIN ; 
; 676 1708 : : 
; ort 1708 ; Read the queue header to avoid thrashing it. | : 
3; 679 1711 READ_RECORD(SQH$K_RECNO) ; : 
; 680 at Z 
; 681 171 ; . : 
; 68 1714 ' Loop for all records in the List. 5 
: 68 1715 i - 
: «684 1716 LRECNO = .RECNO : 
3 685 1717 WHILE .LRECNO NEQ 0 DO : 
; 686 1718 4 BEGIN 3 
; 687 1719 4 : : 
; 688 1720 4 ' Read the record, save the Link to the next record, deallocate the 3 
; 689 1721 4 ' record, and advance to the next. Z 
; 690 17 § 4 i ; 
; 691 17 4 REC = READ 3 i AF ce d; 3 
; «469 1724 4 NRECNO = LINK ; 
; 69 1725 4 DEALLOCATE win tCRECNOS ; F 
3; 694 1726 4 LRECNO = .NRECNO; ; 
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° 1a-Sep-1 1982 $3 35: $6 JOBCTL.SRCJBUFFERS.B32;3 . tf 
: 695 1727 END; | 
& O38 17 8 i 
: 69 1729 | 
; 639 if ? Release the queue header. 
: 700 17 RELEASE _RECORD(SQH$K_RECNO); 
: 701 17 5 END; ~ 4 
; 702 1734 1 END; 
001¢ 00000 .ENTRY DEAL LOCATE _RECORD_LIST, Save R2,R3,R4 : 1670 
04 Ac 03 90008 STL RECNO : 1705 
2D 13 0000 BEQL «6-3 : 
01 pd 00007 PUSHL a + 1711 
0000v CF 01 FB 00009 CALLS READ RECORD : 
52 06 AC D O00E MOVL REENG’ LRECN > 1716 
19 13 00012 1$: BEQL $ + 1717 
52 DD 00014 PUSHL LRECNO : 1723 
0000v CF 01 FB 00016 CALLS #1, READ_RECORD : 
54 50 pO 00018 MOVL R : 
53 64 DO OOO1E MOVL (REC), NRECNO + 1724 
52 DD 00021 PUSHL LRECNG : 1725 
FED9 CF 01 FB 00023 CALLS DEALLOCATE_RECORD ; 
52 53 DO 00028 MOVL NnECNO, LRECNO™ + 1726 
E5 11 00028 BRB : 1717 
01 DD 00020 2$: PUSHL A ; 1732 
0000v CF 01 FB 0002F CALLS #1, RELEASE_RECORD : 
04 00034 3$: RET : 1734 


; Routine Size: 53 bytes, Routine Base: CODE + 033E 


BUFFER Buffer management utilities 12-808: 4 AX-11 Bliss-32 V4.0-742 Page 28 
V §ot . 71382 $3; 3533 NOBCTLe SRC BUFFER .B32;3 ° Rt sd 


3 f ¢ i? 5 } GLOBAL ROUTINE READ_RECORD(RECNO)= | 
3 re 17 § 1 lee | 
; 70 1738 1! 
: 708 1739 1°! FUNCTIONAL DESCRIPTION: 
; 709 Vy 1! his routine reads a specified record. 

; 710 1741 1! 

3; 711 1g 1 ! INPUT PARAMETERS: 

3 ng 1745 1! RECNO - Relative record number. 
s 71 1744 1! 

: 716 1745 1 =! IMPLICIT INPUTS: 
; 715 1768 1! NONE 
: at 1747 1! 
3; 71 1748 1 ! OUTPUT PARAMETERS: 

; 718 1749 1! NONE 

3; #719 1750 1! 

3 730 1751 1 =! IMPLICIT OUTPUTS: 

s fei a; 1! NONE 

; £ ; 1755 1! 

ee 1754 1 ! ROUTINE VALUE: ; 

: 724 1755 1! Address of buffer containing specified record. | 
; 725 1756 1! 

; 726 1757 1°! SIDE EFFECTS: 

3; 727 1758 1! Specified record read into buffer. 

; 728 1759 1! 
: C44 1760 1 !-- 

; 730 1761 1 

s 731 1708 BEGIN | 
; ree 176 LOCAL 

ee 1764 PREV, ' Pointer to previous forward Link 
3; 734 1765 BCB: REF BBLOCK; : Pointer to buffer control block | 
; 735 1766 
; 73 1767 ; ; ; 
: ree 1708 Search the active buffer control block List for the specified record number. 
; (a 1770 DIAG_ a 4] = .RECNO; ! weet diagnostic info ***** | 
: 740 1771 DIAG_C TE2) = .DIAG COUNTC2) + 1; 

: 741 176 PREV = ti AC uy E_LIST; | 
3 oe 177 WHILE ..PREV NEQ 0 DO 

a 1774 N 
> 746 1775 BCB = ..PREV; | 
3; 745 1776 

: 746 1777 
: 747 1778 ! If the current record number is greater than the desired record number, 
: 748 1779 ' the record is not in the List. 

3; 749 1780 i : 
; 750 1781 if -BCBCBCB_RECNO] GTRU .RECNO 
s 3) 1786 
. 7 178 EXITLOOP; 

; #75 1784 

; 754 1785 

s 35 1786 ! If the current record number is equai to the desired record number 

: 236 HEA tA increase the reference count on the record and return its buffer hives. 

; 758 1789 if -BCBCBCB_RECNO) EQLU .RECNO 

; 759 1790 HE 

: 760 1791 4 BEGIN 
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001 1a-8ep =| 198 $3 35% JOBCTL.SRCJBUFFERS.B32;3 8 
: 761 1798 4 pce COUNT(3) = ghine rece REF 1; ! We saved a read ; 
s £6 1793 4 ace. RE pee eoY UNT) = Bie BCB_REFCOUNT] + 1; : 
: 76 1794 4 BCBCBCB_BUFFER : 
: 764 1795 ENDS ‘ 
: 765 1796 : 
: 766 179 : 
; 767 1798 ! Advance to the next buffer control block. ‘ 
: 768 1799 i : 
; 769 1800 PREV = BCBCBCB_LINKI; ° 
; 770 1801 END; : 
. ory 1308 ° 
: 77 19 | : 
ae ie 1804 ! The specified record was not found, Allocate a new buffer control block, ° 
> 774 1805 ! Link it into the List, and initialize it. ‘ 
: 775 1806 ! | ° 
; 776 180 BCB = ALLOCATE mae St ‘ 
5 wre 1808 BCBCBCB_LINK] = .. ° 
; 778 1809 -PREV = .BCB; | ° 
: 779 1810 2 BCBCBCB_RECNO) = .RECNO; : 
; 780 1811 BCBLBCB_REF COUN NT] = 1; ‘ 
3; «781 18l¢ . 
; 7 181 ; 
$ a + a Initialize the RAB and read the specified record. ‘ 
: 785 1816 QUEUE RABCRABSL_KBF = BCBCBCB RECNO); | ; 
: 786 1817 -FCAGSCFLAGS-V_QUEUE_SHA ; 
; 787 1818 THEN QUEUE_R RABSC ROP = RABSM_NLK OR RABSM_RRL : 
: 788 1819 ELSE QUEUE~RAB RABSL | : 
; 789 1820 QUEUE _RAB or UBF J BC8 ace BUFFER: | ° 
; 790 1821 2 DIAG COUNTLO) = ~“ DIAG. COUN T(0} | : 
s 791 18 § IF NOT $GET(RAB=QUEUE_R ? 
; 18 THEN : 
; 9 1824 SIGNAL_FILE_ERROR 
; 794 1825 JBC$_READERR ; STS$K_SEVERE, 
3; 9 1826 apEUe™ FAB, QUEUE_RAB); 
; 796 1827 
; 797 1828 
; 798 1829 ' Return the address of the record. 
; 799 1830 : 
; 800 1831 -BCBCBCB_BUF FER] 
; 801 1832 1 END; 


001¢ 00000 SENTRY READ RECORD, Save R2,R3,R4 ; 1735 
54 00000000" EF 9E 00008 MOVAB QUEUE_R ; | 
FCAB = C4 04 AC DO 0000 MOVL § RECNO; "DIAG "TRACE+16 : 1770 | 
FD00 C4 OG 900F INCL DIAG_COUN : 1271) 
53 FFIG © C4 O13 MOVAB © BCBRCTIVE. LIST, PREV : 1008 
65 3 00018 18 TSTL (PREV) : 1773 | 
52 63 0 0001c MOVL (PREV), BCB : 1775 | 
04 AC 04 42 D1 QOOIF CMPL  4(BCB), RECNO ; 1781 
19 1A 00024 BGTRU 3 ; | 
09 12 00026 NEQ $ : 1789 


12 
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FD04 §=6C4 (6 8 INCL 1AG_COUNT+12 : 

8 A2 06 09 C INCL BCBS : 

5B (11 O00eF BRB 6$ : 

53 52 DO 00031 28 MOVL BCB, PREV : 

11 00034 BRB 1$ : 

FCC6 cf FB 00036 3$ CALLS #0, ALLOCATE_BUFFER : 

DO 00038 MOVL RO, BCB ; 

6 § D 00 : MOVL (PREV), (BCB) ; 

6 09 04 MOVL CB, (PREV) : 

04 ag 04 AC DO 00044 MOVL  RECNO, 4(BCB) ; 

08 A 07 DO 00049 MOVL #1, 8(BCB) : 

eC AG 04 Ag 4: 0040 MOVAB 4(BCB), QUEUE_RAB+48 ; 

09 FESB C4 03 £1 00 3 BBC #3, FLAGS, F 
64 00100008 8F 00 0005 MOVL #1048584, QUEUE_RAB+4 : 

02 11 0005F BRB 5$ : 

64 D4 00061 4$: CLRL  QUEUE_RAB+4 : 

20 Ad OC A2 DO 00063 5S: MOVL 12(BCB), QUEUE_RAB+36 ; 

FCF8 C4 D6 00068 L —- DIAG_ COUNT : 

FC AG OF 0006C PUSHAB QUEUE_R : 

000000006 00 01 FB O006F CALLS #1, SYS$GET ; 

13 50 £8 00076 S$ RO, 6$ ; 

FC AG 9F 00079 PUSHAB QUEUE_RAB F 

AC AG 9F 0007C PUSHAB QUEUE~FAB F 

00041084 8F DD 0007F PUSHL H¢6 420 ; 

000000006 EF 03 FB 00085 CALLS #3, SIGNAL_FILE_ERROR : 

50 0c A2 DO 0008C 6$ MOVL 12(BCB), RO : 

04 00090 RET ; 


; Routine Size: 145 bytes, Routine Base: CODE + 0373 
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PREF EWN 


NOAUVE WN 9 OONA MEW O ODNAUEWN  O OONOYV EWR OOONOUE WW 


0 C9 Cd Cd OS C0 C9 CD Cd CD CD 2.09 00 09 C9 C0 CD CD. CD CD CD CD.CD 
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ior 


GoGo 00 09 6908 SI NI SINISE S 
MEW OOM 


Se 


WAWINIAI ANNI NI WIWIWWIA NI AIAN NNONNDY 2 2 es 
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000 
oo 


1 Oi ioe 
14-Sep-1 JOBCTL.SRC 


GLOBAL ROUTINE FLUSH_RECORD(RECNO): NOVALUE= 
'e+ 
' 


i FUNCTIONAL DESCRIPTION: 
This routine flushes a specified record to the queue file without 
releasing access to it. 


INPUT PARAMETERS: 
RECNO - Relative record number. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE- 
NONE 


SIDE EFFECTS: 
NONE 


PREV, ! Pointer to previous forward Link 
BCB: REF BBLOCK; ' Pointer to buffer control block 
: Search the active buffer control block List for the specified record number. 
DIAG_TRACECG) = .RECNO; | eeeee diagnostic info sees 
DIAG-COUNTC5) = .DIAG_COUNT(S) + 1; 
PREV’ = BCB_ACTIVE_LIST; 
WHILE ..PREV NEQ 0 DO 
BCB = ..PREV; 
! If the current record number is greater than the desired record number, 
the record is not in the List. 
if .BCBCBCB_RECNO] GTRU .RECNO 
EXITLOOP; 
the current record number is equal to the desired record number, 
ush the record. 


BCBCBCB_RECNO) EQLU .RECNO 


pO 
> 


= 
HEN 


Buffer management utilities 


A 


1F NOT SPUT (RAB=GUEUE"RAB) 
SIGNAL _FILE_ERROR( 
QUEVE_FAB, QUEUE_RAB) 
ale 


PREV = BCBCBCB_LINK); 
END; 


logic error. 


i ee ee ee ee ee ce ee ee ae ee ee ee ed ed 


DWDOODOOOOOOOODOOOOOOOOOMMoOc 


Me 2 2 2 SS | | “DOOCCCCOCOCOCCOOOWOooowoo 
SOMNONE WHOSE s 


=NNININNVININWWNWNI BS BEES ENE EPL PPLE 


Se Pe Se ee Be Se Se Ge Se Ge Se Be Se Se Be Os Oe Oe Oe Se Os Se Oe Oe Se Ge Se Ge Be ee ee 


JBCS_WRITEERR + STSS$K_SEVERE, 


0 BEGIN 
¢ } Rewrite the record. 
4 QUEUE _RAB RABSL_KBF 2 BcBLBCB RECNO]; 
5 QUEUE -RABLRABSL_-RBF = .BCB CB_BUFFERI; 
$ IF .FCAGSCFLAGS-V QUEUE SHARED 
THEN SUE Ue RAS ERAS C_ROP 
8 ELSE QUE E-RABCRABSL-ROP) = RABSM-UIF; 
i DIAG_COUNTL1) = .DIAG_COONTC1) + 1; 
4 
5 


Advance to the next buffer control block. 


cates cateeatan OR STSSK_SEVERE, 1, .RECNO); 

001C 00000 
54 00000000" EF oF 00002 
FCBO §8C4 04 AC DO 00009 
FDOC C4 D6 Boot 
53 FFI4 «C4 9 oats 

63 D5 00018 1$: 
52 13 QOO1A 
52 63 00 Baie 
04 AC 04 A2 01 QOOTF 
48 1A 00024 
41 12 00026 
C AG be A ro | 88 8 
4 A4 C Ag D 02D 
09 FE98 = C4 E1 b8 

64 00100010 F DO 00 

> F) 8 F 

64 0 00 bee ¢3: 

FCFC §3=C4 be 44 3$: 
000000006 00 " 01 re O28 
28 8 EB 0059 


V4.0-74 


12 
w$p-1986 92:32:50 Udder. “sae Seurrens asses 


5 
= RABSM_UIF OR RABSM_NLK 
1 


! The specified record was not found. This condition indicates an internal 


FLUSH_RECORD, Save R2,R3,R4 

Q “RAB+4, R4 
DIAG_TRACE+24 

OUNT+20 

ACTIVE_LIST, PREV 


——- 


QUEUE_RAB+48 
QUEUE _RAB+40 


sg eget 


) 

ts 
QUEUE_RAB+4 
COU 

Y 

4 


OUNT#4 


ated atatatataed afetd abated 
cocp0a o909 os000000 

COO0O0D ON NNO 
NOUS O Of MO” 


sxoceco )§=6aD0D 
oun 
Ooo 


Bur eRe Buffer management utilities 15-00-1984 $3335 :08 AX=1 


FC AG of 3 PUSHAB QUEUE_RAB 
Af AS OF PUSHAB Q FAB 
000410D F OD PUSH ’ 52 
00000000G_ EF 3 fe catl #3, SIGNAL_FILE_ERROR 
53 52 09 4$: MOVL B, PREV 
AA C BRB 
04 AC OD ‘ 5$: PUSHL RECNO 
1 0d PUSHL 
0004841C F DD 00073 PUSHL ate 
000000006 00 3 FB 00079 CALLS) #5, LIBSSIGNAL 
04 00080 68: RET 


; Routine Size: 129 bytes, Routine Base: CODE + 0404 


1 at Sd v4 
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BUFFER Buffer management utilities 15-Sep-1984 23:57:4 AX-11 Bliss-32 V4.0-742 
Vv at ° 1a-8ep-19 33:35:68 JOBCTL.SRCIJBUFFERS.832;3 
: 38 13 1 } GLOBAL ROUTINE REWRITE_RECORD(RECNO): NOVALUE= 
oe Bie 
: 896 1925 1 | FUNCTIONAL DESCRIPTION: 
; 897 19 § 1! This routine rewrites a specified record and decreases its reference 
3 rs: 13 | } count. 
: 900 19 $ 1 i INPUT PARAMETERS: 
: 38) 1? ? 1 RECNO - Relative record number. 
: 9 : 19 ¢ 1 § IMPLICIT INPUTS: 
: 30¢ 1982 | i — 
: 906 1935 1 | OUTPUT PARAMETERS: 
: 308 1989 1 i — 
: 909 1938 1! IMPLICIT OUTPUTS: 
: Sif 1900] | a 
; 912 1941 1! ROUTINE VALUE: 
EP tas i 
: 945 1944 1 | SIDE EFFECTS: 
:; 916 1945 1! NONE 
3; 917 1946 1! 
; 918 1947 1 !-- 
; 919 1383 4 
33S g been 
; 922 1951 PREV, ! Pointer to previous forward Link 
: 923 1936 2 CB: REF BBLOCK; ' Pointer to buffer control block 
: 358 1984 3 
; 368 132? : Search the active buffer control block list for the specified record number. 
; 4 1957 3 DIAG_TRACECS) = .RECNO; ! seeee diagnostic info tt*** 
; 929 1958 2 DIAG-COUNTL4] = .DIAG COUNT(4) + 1; 
: 930 1959 PREV = BCB_ACTIVE_LIST; 
: 44 1309 WHILE 2 sEREV NEQ 0 DO 
: 333 196¢ BCB = ..PREV; 
rt 
: 9 1965 ! If the current record number is greater than the desired record number, 
3 et 1398 the record is not in the List. 
; 959 1968 if ;,BCBCBCB_RECNO GTRU .RECNO 
> 941 1970 EXITLOOP; 
2) cn 
3 944 1993 ! If the current record number is equal to the desired record number, 
3; 945 1974 ' decrease the reference count on ihe record, and rewrite the record. 
3; 946 1975 ' If the reference count has falien to zero, deallocate the buffer 
: oh 13¢8 ; control block. 


Past iS 
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| BUFFERS Buffer management utilities 18-62 1984 23:57:4 AX-11 Bliss-32 V4.0-742 
v06~003 ° 12-808-1 9b 33:35:68 JOBCTL.SR RCIBUFFERS.B32:3 
; 949 1978 If .BCBCBCB_RECNO] EQLU .RECNO 
} 950 1979 i THEN = 
; 32) 13a 4 BEGIN 
.. | ¢ 1981 4 
; 9S 1386 4 ! Rewrite the record. 
: gee 1982 ¢ RAB spr ety at BCBCBCB_RECNO) 
; 956 1985 4 QUEUE cist ABSL Bra = .BCB BCB BUFFER; 
; 957 1356 4 a4 AGS FLAGS o\ SOUEUE SHARED 
; 958 1987 4 QUEUE ~RABCRABSE ROP = RABSM_UIF OR RABSM_NLK 
; 959 1988 4 E SUEVE RAS RABSL_ROP) = RABSM_UIF; 
; 960 1989 4 le COUNT 1] = .DIAG_C COONTE TI * 13 
: 961 1990 5 NOT $PUT(RAB=QUEUE_RAB 
3 206 1991 4 THEN 
; 96 1236 4 SIGNAL_FILE_ERROR( 
3; 964 1993 4 JBTS_WRITEERR + STSS$K_SEVERE, 
> 965 1994 4 QUEUE FAB, QUEUE_RAB); 
; 966 1995 4 
; 967 1996 4 
; 968 1997 4&4 ! If the reference count has fallen to zero, unlink and release the 
; 969 1998 4 ' buffer control block. 
; 970 1999 4 
; 971 2000 4 Bcacece REFCOUNT) = ra -REFCOUNT] = 1; 
; 97 2001 4 If .BCBCBCB_REFCOUNTJ EQL 0 
; O7 sons 4 THEN 
> 974 2003 5 
3 975 2004 5 PREV CBCBCB_LINK); 
; 976 2005 5 SEALLOCATE “BUFFER. BCB); 
: 977 2006 4 END; 
; 978 2007 4 RETURN; 
; 979 2008 3 END; 
; 980 2009 3 
s 961 2010 3 
; 982 2011 3 ! Advance to the next buffer control block. 
; 983 sole 3 i 
> 6984 201 3 PREV = BCBCBCB_LINK); 
; 985 2014 2 END; 
: 986 2015 2 
: 987 2016 2 
; 988 2017 2 ! The specified record was not found. This condition indicates an internal 
; 989 2018 2 ! Logic error. 
; 990 2019 2! 
; 991 2020 2 SIGNAL ( JBC$_ INVBLOCK OR STSS$K_SEVERE, 1, .RECNO); 
; 992 2021 1 END; 


001¢ 00000 .ENTRY REWRITE_RECORD, Save R2,R3,R4 
54 00000000' EF or 0002 MOVAB QUEUE_RAB+4, R 
FCAC 04 AC DO 00009 MOVL RECNO; DIAG * TRACE+20 
FDOB = C4 p6 OO0F INCL DIAG COU 
53 FF14 6 C4 0013 MOVAB BCB KeTive. _LIST, PREV 
63 D 18 1$: TSTL (PREV) 
—. 7 OO01A BEQL 
52 63 00 0001C MOVL (PREV), BCB 


oc 


; Routine Size: 


Buffer management utilities 


144 bytes, 


06 AC 04 $f 

C AG 06 =#OA 

4 Ab Oc =UOCOA 

FE9B 84 

64 00100010 4 
64 10 

FCFC C4 

FC = AG 

000000006 09 gf 
1 0 

FC AG 

AC AG 

00041004 ~=—s« BFF 

00000000G_ EF 03 
08 AS 

2 

63 62 

52 

FBB6 CCF 01 
53 52 
9B 

04 AC 

01 

0004841C = BF 

000000006 00 03 

Routine Base: CODE + 0485 


1 

14e- 
D1 if 
ou 
12 000 8 
43 0 
D 02D 
Ei § 
dO 
11 F 
DO 90041 ¢: 
D6 00044 5$: 
rts 
£8 00058 
9F 0005 
9F 00058 
DD 00058 
FB 00061 
D? 00068 4$: 
12 00068 
DO 00060 
DD 00070 
FB BOOTS 
04 0007 
DO 00078 5$: 
11 ete 
DD 0007D 6$: 
DD 00080 
DD 00082 
FB 00088 
04 0008F 7$: 


5 AX-11 Blis etane V4.0-7 
JOBCTL.SRCIBUFFERS. 352s ° 


BCB), RECNO 
QUEUE _RAB+48 
QUEUE_RAB+40 
gs. QUEUE _RAB+4 
EUE_RAB+4 

T#4 


NAL_FILE_ERROR 


(BCB), (PREV) 

i DEALLOCATE_BUFFER 
BCB, PREV 

RECNO 


#295964 
#3, LIBSSIGNAL 


sOcocD )§=6oD0DcDcD 


. 
a 
: 
o 
. 
. 
. 
e 
. 
. 
. 
o 
. 
° 
. 
. 
. 
. 
7 
e 
. 
o 
- 
6 
. 
. 
. 
~ 


13 
B rrens Buffer management utilities 18-Sep-19 4 $3: 30:8 AX-11 OL legen V4.0-742 
v04-001 14-Sep-1984 22:32:5 JOBCTL.SRCJBUFFERS.B32;3 
$ o3¢ 8 § ! GLOBAL ROUTINE RELEASE_RECORD(RECNO): NOVALUE= 
3 238 024 1 !4+4 
; 99 025 1! 
; 998 0 § 1 ! FUNCTIONAL DESCRIPTION: 
: 1900 8 ! } This routine decreases the reference count of a specified record. 
; 1001 029 1 ! INPUT PARAMETERS: 
3 16 030 1! RECNO - Relative record number. 
; 100 031 1! 
: 1004 0 ¢ 1 ! IMPLICIT INPUTS: 
; 1005 0 1! NONE 
3; 1006 034 1! 
: 1007 035 1 ! OUTPUT PARAMETERS: 
: 1008 0 § 7 NONE 
: 1009 0 7 Y 
3; 1010 038 1 =! IMPLICIT OUTPUTS: 
3: 1011 039 1! NONE 
3 a 04c 1! 
3; 101 2041 1 =! ROUTINE VALUE: 
3 1014 secs 1! NONE 
3 1015 043 1! 
3: 1016 2044 1 ! SIDE EFFECTS: 
3; 1017 2045 1! NONE 
: 1018 ps6 1! 
3 1019 047 1 !<- 
: 1020 048 1 
: 1021 2049 2 BEGIN 
: 1022 2050 § LOCAL ‘ p 
: 1023 She) PREV, ' Pointer to previous forward Link 
: 1024 2 26 2 BCB: REF BBLOCK; ' Pointer to buffer control block 
: 1025 2055 2 
3: 1026 2054 § : «its 
; Hr 44 Sota § Search the active buffer control block list for the specified record number. 
; 34 2057 2 PREV = BCB_ACTIVE_LIST; 
z 1030 2058 WHILE ..PREV NEQ 0 DO 
: 1031 2059 8 
; Ht 2060 BCB = ..PREV; 
3; 103 2061 
3 1034 $006 : 
; 1035 206 ! If the current record number is greater than the desired record number, 
3 1036 ye the record is not in the List. 
: 1038 aye IF .BCBCBCB_RECNO] GTRU .RECNO 
3; 1039 2067 
3: 1040 2068 EXITLOOP; 
3; 1041 069 
: Ho 070 , 
3: 104 071 ! If the current record number is equal to the desired record number, 
3: 1044 Ors ' decrease the reference count on the record. If the reference count has 
3 Rez Bt fallen to zero, deallocate the buffer control block. 
: 1009 075 ; IF .BCBCBCB_RECNO) EQLU .RECNO 
; 1048 B76 THE 
: 1049 077 4 pests 
; 1050 078 4 BCBCBCB_REFCOUNT) = .BCBCBCB_REFCOUNT] - 1; 


oz 


Bac 


13 
BUFFER Buffer management utilities 18-se =1984 23:57:4 AX-11 Bliss-32 V4.0-742 
vee ° ¥ 1279 08- 1 3b $3:35°8 JOBCTL.SRCIBUFFERS.B32;3 
; 1051 079 4 IF .BCBCBCB_REFCOUNT) EQL 0 
3 1088 080 4 THEN = 
: 1084 083 PREV = .BCBCBCB LINK] 
: 1055 O88 DEALLOCATE_BUFFER(.BCB); 
3 1928 oRe 4 END; 
; 105 085 4 RETURN; 
: 1058 086 END; 
ee 
: 1061 089 1 Advance to the next buffer control block. 
; 1068 091 PREV = BCBCBCB_LINK); 
; He: END; 
> 1066 2094 
3; 1067 095 ! The specified record was not found. This condition indicates an internal 
: 1068 2096 § ! Logic error. 
3; 1069 2097 : 
; 1070 2098 2 SIGNAL(JBC$_INVBLOCK OR STSSK_SEVERE, 1, .RECNO); 
3; 1071 2099 1 END; 


000C 00000 «ENTRY RELEASE_RECORD, Save R2,R3 
53 00000000" EF 9E 00002 MOV BCB_ACTIVE_LIST, PREV 
63 D5 00009 1$: TSTL (PREV) 
21 +13 00008 BEQL 
52 $3 DO 0000D MOVL (PREV), BCB 
04 AC 04 A2 01 00010 CMPL 4(BCB), RECNO 
17 1A 00015 BGTRU 3$ 
10 12 Ed BNEQ 2s 
08 <A2 07 00019 DECL 8(BCB) 
22 12 0001C BNEQ 4$ 
63 62 00 OOO1E MOVL (BCB), (PREV) 
52 0D 00021 PUSHL  BCB 
FB75—sCF 01 FB 00023 CALLS #1, DEALLOCATE_BUFFER 
04 00028 RET 
53 52 DO 00029 2$: MOVL BCB, PREV 
DB 11 0002C BRB 1$ 
04 AC DD OOO2E 3$: PUSHL RECNO 
QI DD i 1 PUSHL 1 
0004841C F DD 00033 PUSHL #695966 
000000006 00 03 FB 00039 CALLS #5, LIBSSIGNAL 
04 00040 4$: RET 


; Routine Size: 65 bytes, Routine Base: CODE + 0515 


Be 
BUFFERS Buffer management utilities 15-Sep-1984 :57:4 AX-11 Bliss-32 V4.0-74 
V ae 9 14-Sep-1984 335358 OLE Teur Fens esos 


p 
p- JOBCTL.SRCIJBUFFERS.B32;3 


074 

075 '4+ 

ozs : 

07 ' FUNCTIONAL DESCRIPTION: 

078 ; This routine locks the system queue file in preparation for a 

Oa8 } transaction. 

081 ! INPUT PARAMETERS: 

ore ! NONE 

OB IMPLICIT INPUTS 

OBS ! NONE 

086 ! 

087 ' OUTPUT PARAMETERS: 

088 ! NONE 

089 ! 

090 ! IMPLICIT OUTPUTS: 

091 ! NONE 

O36 ! 

09 ' ROUTINE VALUE: 

094 ! NONE 

095 ! 

096 ' SIDE EFFECTS: 

97 ‘ NONE 

98 ! 

99 len 

00 

01 BEGIN 

4 LOCAL 

0 COUNT ' Loop counter 
STATUS; ' Status return 


Saeed REPL ARSEPLAGE YEE LOCEEDS? 

BEGIN 
! Retry enqueue service on deadlock error up to 20 times before signalling 
! this error condition to prevent aborting the job controller on a false 
deadlock indication from the lock manager. 
iNCR COUNT FROM 1 TO 20 DO 

BEGIN 

STATUS = SENQW( 

LKMODE=LCRSK_ERMODE 


LKSB=QUEUE_LOCK_LKSB, 
FLAGS=LCKSM_CONVERT): 


vuvvU 


PIPIPIPINDPINYNINININININYINDNININININININININNANIDINININININIPINININININPYNIPYININPIPUNPIPUNIPONOPONoNoNoPofnonofnoniny 


IF .STATUS THEN STATUS = .QUEUE_LOCK_LKSBLO); 
IF .STATUS NEQ SS$ DEADLOCK THER EXITLOOP; ; 
DIAG TRACECII = .BIAG_TRACEC11] + 1; |! see® diagnostic info ***** 


IF NOT .STATUS 
THEN 
BEGIN 


ed ed ed a ed cd ed ee ee ce cet et ce ee ee ee ee et ee ce ce ce ee ed ce ee ce cd ce cet ee ea ed ce aD ce ce ed et ee ce ce ce ce ce ce ee ce ce ee ee 
VV BS BS BSB BEB EE BWW ANNAN IWIN NINPNINININIDY 2 OS SS SS OOOOOOOCOO 


On FWR $0 OONO UFWN 0 OODNOAUE WIN OOONAUE WIN $0 O@NOAUE WR "OO ODVNOAUE WN OO 
AANA BBB BEE BE FAWN IIIPIDPIDIDINPIND 2 2 9 


Be Se Be Be Se Be Oe Se Se Be Se Be Be Se Fe Se Ge Se Fe Se Se Ge Ge Be Ge Se Ge Ge Se Ge Se Ge Ge Ge Ge Se Se Se Se Se Sse Se Se Se Se Se Se Be Se Oe Ge Se Se Se Se Se ee. 


ee ee el me me ee ee ce ee em ee ee ee ee De ee ed nd ed od ed od 


ee ee ek et a et a a a ad ed od td od OOO 
OoOOnOU 


DONO ULWN —OOONOUSwh— 


Page 39. 
. (14). 
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BUFFER Buffer management utilities 1$-S2p-1 4 23:57:4 AX-11 Bliss-32 V4.0-742 Page 40. 
viet 12780-1382 $3:35:8 JOBCTL.SRCIBUFFERS.B3253 ° (14) | 
; 1130 157 4 IF .FLAGSCFLAGS_V_CS_QF_ DEADLOCK) ' Conditionally bugcheck cluster 
; 1131 138 4 THEN FLAGSEFLRGS-V CLUSTER. SCRAM] = TRUE; Sagi 
: 11 : 1 4 SIGNAL (JBC$_COMREMJBC OR STSSK-ERROR, 0, .STATUS); 
: 11 160 3 END; 
: 1134 161 END; 
3 1155 162 1 END; 
.EXTRN SYSSENQW | 
000C ENTRY LOCK_QUEUVE_FILE, Save R2,R3 3 2100! 
23 00000000' Fr 9 00008 MOVAB FLAGS, RS : . 
51 6 0 £2 0000 BBSS #0, FLAGS, 5$ : 2134 
52 91 DO 0000D MOVL #1, COUNT : 2142 
—E 7C 00010 1$ cLRO=§ + 2148 
7E 7C 00012 CLRQ -(SP) : 
7E 7C 00014 CLRQ -(SP) : 
7E 0¢ 7D 00016 MOva #2, =(SP) : 
0080 C3 9F 00019 PUSHAB QUEUE_LOCK_LKSB : 
05 oD 0001D PUSHL #5 : 
01 DD 0001F PUSHL #1 : 
000000006 00 0B FB 00021 CALLS #11, SYSSENQW : 
05 50 £9 00028 BLBC = STATUS, + 2149 
50 0080 C3 3¢ 00028 MOVZWL QUEUE _LOCK_LKSB, STATUS : 
QOO00EOA «BF 50 D1 00030 2$: CMPL STATUS, #3594 ; 2150 
08 12 00037 BNEQ Z 
FE2C C3 D6 00039 INCL DIAG_TRACE+44 : 2151 
CF 52 14 F3 00030 AOBLEQ #20, COUNT, 1$ 3 2142 
1A 50 £8 00041 3$: BLBS STATUS, 3 2154 
04 02 A3 04 €1 00044 BBC #4, FLAGS+2, 4$ 3 2157 
02 A3 02 88 00049 BISB2 #2, FLAGS+2 3; 2158 
50 DD 0004D 4$: PUSHL STATUS : 2159 
7E D4 0004F CLRL -(SP) : 
00048412 8F DD 00051 PUSHL #295954 : 
000000006 00 03 FB 00057 CALLS #3, LIBSSIGNAL : 
04 O005E 5$: RET : 2162 


; Routine Size: 95 bytes, Routine Base: CODE + 0556 


H 13 
FFER -Sep- 237: ° - -0- 
eur Ens Buffer management utilities 1? ¢ 1384 93:32:68 ar 11 Bliss-32 V4.0-742 Page $ 


JOBCTL.SRCIBUFFERS .832;3 (1 


a 
— 


t* al al * al * al? al ah valvalvalvaleal val val eal saleal ae ae oe at oP oP oP oP or le, ee 


co coos 


GLOBAL ROUTINE UNLOCK_QUEUE_FILE: NOVALUE= 
lee 
' 


i FUNCTIONAL DESCRIPTION: 

This routine unlocks the system queue file following a transaction. 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BCB: REF BBLOCK, ' Pointer to buffer control block | 
STATUS; ! Status return | 
IF QUEUE_FABCFABSW_1F1] NEG 0 | 
BEGIN 
If the active buffer control block List is not empty, release each one. | 
one PCR ACTIVE LIST NEQ 0 DO 

CB = .BCB_ACTIVE_LIST; 


B 
BCB_ACTIVE-LIST =~.BCBLBCB_LINK); 
DEACLOCATE BUF FER( .BCB); 


SOODOCOOCOCOO0O0 000 OO O00 0000 09 09 09 909 09 SINSINSINSININI NN NIOAAAOOAOAO 


DODONAEA ODS VE MEY DODO NOME MO DO9 OrCAD DOI OU RUIN OOo der ed 


ANN NSN SOOO 


Release the queue file lock. 
if TESTBITSC (FLAGSCFLAGS_V_QUEUE LOCKED) 


BEGIN 

STATUS = SENQW( 
EFN=JBC$K_SYNC_EFN 
LKMODE=LCRS$K_NCMODE 
LKSB=QUEUE LOCK LKS6, 
FLAGS=LCKSM_CONVERT) : 


vuvv 


PIP IPNPININININYNININPINYNNYAINYIATNINININYINININININPYNINPYININPININPYINIPINPININININONUNININOPNoPononofnononononyd 


PEELE FAWN & HB BE AAWIWIIWNIIPINIDINININININD 4 A 9 9 9 9 I SS SS SSS 


Be Se Se Be Be Ge Se Se Ge Be Se Ge Ge Se Se Ge Ge Se Se Se Ge Se Se Se Se Ge Ge Fe Se Se Se Se Se Se Ge Se Se Ge Ge Ge Se Se Se Se Ge Ge Se Se Se Se ee Se Se Se Se ee ae 
ee ee ee ee em ee ed a ed ed = = = sd = 
ee el ce el el cel el cel cel eel el el el el el el el el cel el el eel cel cel eel el elt lt cel cel eel lls els lt cells cls eel cells acl cecal cecal cals cecal lls call cls mally cll cals calls call calls 


a ed ed ad td = OOD 


ooo 


FFER t -Sep- £57: . “ sd 
B - S Buffer management utilities 4.83 Sep 138% 937328 AX-11 a $$ 32 V4.0-742 Page 42 


01 14-Sep-19 JOBCTL.SRCJBUFFERS.B32;3 (15) | 
3 1194 0 4 IF STATE ot STATUS = .QUEUE_LOCK_LKSB(O0J; 
3; 1195 oe IF NOT .STA = e 
: 1139 § 4 THEN 
3; 119 4 SIGNAL (JBCS_COMREMJBC OR STSSK_ERROR, 0, .STATUS); 
3; 1198 4 ND; 
3; 1199 5 
; 1s99 6 
: ; 4 ; f Close the file if appropriate. 
3 1208 2229 IF ,QUEUE_REFERENCE_COUNT EQL 0 
: 1204 230 THEN 
3; 1205 $3! 4 BEGIN 
3 : Be 238 : IF NOT SCLOSE(FAB=QUEUE_F AB) 
: 1208 3G SIGNAL_FILE_ERROR( 
: 1209 $s3e 4 JBC$_CLOSEOUT OR Hor ERROR, 
: 1210 2236 4 QUEUES FAB, QUEUE_FAB); 
: 1211 2237 4 
3 isi¢ 2238 4 
3s 121 2239 4 ' Release context associated with open $GETQUI operations. 
3 1214 2240 4 ! 
3; 1215 2241 & DELETE_OPEN_GETQUIS(); 
: 1216 $see 4 
3 1217 224 4 
3; 1218 2244 & ' Release all locks acquired for the file. 
3 1219 2245 4&4 ' 
: 1220 2246 & SDEQ(LKID=. (REMOTE it we?! KSBC2])); 
3 1221 2247 & SDEQ(LKID=. (QUEUE FIL LKSBC2))); 
: 1222 2248 4 SDEQ(LKID=. (QUEUE “Lote “[kSB 2))); 
3 1223 2249 3 END; 
3 1226 2250 2 END; 
3: 1225 2251 1 END; 
-EXTRN SYSS$CLOSE, SYSS$DEQ 
001C 00000 -ENTRY UNLOCK _QUEUVE_FILE, Save R2,R3,R4 > 2163 
54 00000000G 00 9€ 00002 MOVAB svssped, R4 F 
53 00000000" EF 7 00009 MOVAB QUEUE_FAB, R3 : 
02 A3 B65 00010 TSTW QUEUE ~F AB+2 3: 2196 
01 12 00013 BNEQ 1$ 3 
04 00015 RET F 
50 FF68 C3 0 82016 1$ MOVL BCB_ACTIVE LIST. RO : 2202 
: ¢ . 0018 BEQL - 
38 50 oO BRO 18 MOVL RO, BCB : 220 
FF68 C 62 00 000 ! MOVL (BCB), BCB_ACTIVE_LIST : $502 
52 0D 60 PUSHL BCB : 2206 
FAD1 CF 01 FB 00027 CALLS #1, DEALLOCATE_BUFFER 3 
E8 11 B80 C BRB 1$ 3 3308 
31 FEEC C3 90 2 QO2E 2%: BBCC #0, FLAGS, 4$ 3: 221 
E 7C 000 CLRO 0_- = ( §P) : 2219 
7E 7C 000 CLRQ -(SP) 
7 7C 38 CLRQ - (SP) ; 
7E 0 7D QOO3A MOVQ 4 -(SP) : 
9¢ AS 9F 00030 PUSHAB QUEUE_LOCK_LKSB ; 
7E 01 7D 00040 MOVQ #1, -TSP) 3 


ot A V4.0-742 
JOBCTL.SRCJBUFFERS.B32;3 
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PSECT SUMMARY 


Name Bytes Attributes 
C N 50 Oge NOVEC, WRT, RD ,NOEXE,NOSHR, 
CODE 1655 NOVEC,NOWRT, RD, EXE,NOSHR, 
Library Statistics 
e-em Syakhol§ oaoocen= 
File Total Loaded Percent 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 63 0 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:BUFFERS/OBJ=OBJ$:BUFFERS MSRC$:BUFFERS/UPDATE=(ENH$: BUFFERS) 


COMMAND QUALIFIERS 


1635 code + 5024 data bytes 
00:28.5 


Elapsed Time: Ht 2° 
Lines/CPU Min: 
Lexemes/CPU-Min: abose 


Memor 
Comp i 


lati 


Used: 275 pages 
ion Complete 


1Sobeoctgge 35:57:48 aRsHt 8Lieg32, 4.02742, 


~-EXTRN LIBSSIGNAL 


REL, OVR,NOPIC,AL ahi 
REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 


1000 


00:01.4 


Cl 


T CORPORATION 
PROPRIETARY 
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